home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 32
/
Commodore_Disc_32_19xx_-_de.d64
/
komplan v2.0
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
13KB
|
366 lines
1 rem + +
2 rem (c)'89 ralf nikolai
5 rem karlsruhe
6 rem + +
7 rem
10 ip=50768:gt=51006
20 ifi=0theni=1:load"komplan.masch",8,1
30 ml%=10:ks%=1:dimf$(6,9),r$(6,9),kk$(20),kl$(20)
40 fori=1to6:readwt$(i):nexti:gosub6000:goto500
50 print#4,chr$(15);a$;chr$(8):sys51431:a%=peek(2):return
100 print"[147]";:a$=str$(st%):rn=31:gosub800
110 st%=0:print"maximale zahl stunden pro tag ";:sysip,1:inputst%:ifst%=0then500
120 print:fori=1tost%:print"beginn der";i;"[157]. stunde ";
130 a$=zb$(i):rn=2:gosub800:zb$(i)="":sysip,5:inputzb$(i):printtab(14)
140 a$=ze$(i):rn=9:gosub800:ze$(i)="":print"ende ";:sysip,5:inputze$(i):nexti
150 print"[147]abspeichern der zeiten:[154]":print
160 print"zeiten abspeichen (j/n) ? ";
170 sysgt,0,a$:ifa$="n"then500
180 goto6200
200 print"[147]die laenge der faecher- und raumbe-":print
210 print"zeichnungen ist maximal 10 buchstaben !"
220 print"mit _[146] koennen sie verbessern."
230 poke211,0:poke214,24:sys58732:print"a=abbruch w=weiter";
240 print"":gosub900:geta$:ifa$="a"then500
250 ifa$<>"w"then240
260 poke198,0:fori=1to6:print"[147]";wt$(i):print"[154]"
270 forj=1tost%:printj;"[157]. stunde (";zb$(j);"-";ze$(j);") ";
280 f$(i,j)="":sysip,10:inputf$(i,j):iff$(i,j)<>"_"thengosub7000:goto300
290 ifj>1thenj=j-1:print:print"[145][145][145]";
300 printtab(17);:r$(i,j)="":gosub7100:print"raum nr. ";:sysip,10:inputr$(i,j)
310 ifr$(i,j)="_"thenj=j-1:print:print"[145][145][145]";:nextj
320 nextj,i
330 print"[147]wie oft nachmittagsunterricht ";:sysip,1:inputno%:ifno%=0then380
340 fori=1tono%:print:printi;"[157]. nachmittagsunterricht ";:sysip,30:inputnm$(i)
350 print" tag ";:sysip,10:inputnt$(i)
360 print" beginn ";:sysip,5:inputnb$(i)
370 print" ende ";:sysip,5:inputne$(i):nexti
380 kl$="":hj$="":sj$="":vn$="":nn$=""
400 print"[147]klasse ";:a$=kl$:rn=2:ml%=20:gosub800:kl$="":sysip,20:inputkl$:print
410 print"halbjahr (1/2) ";:a$=hj$:rn=2:ml%=1:gosub800:hj$="":sysip,1:inputhj$:print
420 print"schuljahr ";:a$=sj$:rn=2:ml%=9:gosub800:sj$="":sysip,9:inputsj$:print
430 print"vorname ";:a$=vn$:rn=2:ml%=28:gosub800:vn$="":sysip,28:inputvn$:print
440 print"nachname ";:a$=nn$:rn=2:ml%=27:gosub800:nn$="":sysip,27:inputnn$
500 ml%=10:sys52332:print"[147]":poke53280,0:poke53281,0
510 print"waehlen sie:":print
520 print" 1 [154]> eingabe":print
530 print" 2 [154]> diskettenverwaltung":print
540 print" 3 [154]> kontrolle":print
550 print" 4 [154]> verbessern":print
560 print" 5 [154]> ausdrucken":print
570 print" 6 [154]> kuerzel":print
580 print" 7 [154]> ende":print
590 printtab(10);"ihre wahl (1-7) ? ";
600 sys51739:sysgt,7,a$:sys51913
610 print"[154]":onval(a$)goto200,3500,1500,2000,4000,5000
620 print"falls irrtum restore [154]druecken"
630 end
800 yy=peek(214):xx=peek(211):poke211,xx+rn:poke214,yy:sys58732:ifyy>23thenyy=23
810 printleft$(a$,ml%):poke211,xx:poke214,yy:sys58732:return
900 print:printtab(10)"[154]taste[146]";:poke198,0:wait198,1:print:return
1000 print"[147]stundenplan laden:[154]":print
1010 close15:close8:open15,8,15:open8,8,8,"0:"+a$+".st,p,r"
1020 print:print"[154]floppy uebergibt ";a$;"[154] an c 64":print
1030 input#15,a$,b$,c$,d$:if(val(a$)<>0)thenclose8:close15:sys50622:goto3500
1040 input#8,st%:fori=1tost%:input#8,zb$(i):ifzb$(i)="[166]"thenzb$(i)=""
1050 nexti:fori=1tost%:input#8,ze$(i):ifze$(i)="[166]"thenze$(i)=""
1060 nexti:fori=1to6:forj=1tost%
1070 input#8,f$(i,j),r$(i,j):iff$(i,j)="[166]"thenf$(i,j)=""
1080 ifr$(i,j)="[166]"thenr$(i,j)=""
1090 nextj,i:input#8,no%:ifno%=0then1160
1100 fori=1tono%:input#8,nm$(i),nt$(i),nb$(i),ne$(i)
1110 ifnm$(i)="[166]"thennm$(i)=""
1120 ifnt$(i)="[166]"thennt$(i)=""
1130 ifnb$(i)="[166]"thennb$(i)=""
1140 ifne$(i)="[166]"thenne$(i)=""
1150 nexti
1160 input#8,kl$,hj$,sj$,vn$,nn$:close8
1170 ifkl$="[166]"thenkl$=""
1180 ifhj$="[166]"thenhj$=""
1190 ifsj$="[166]"thensj$=""
1200 ifvn$="[166]"thenvn$=""
1210 ifnn$="[166]"thennn$=""
1220 input#15,a$,b$,c$,d$:close15:ifval(a$)=0then500
1230 sys50622:goto500
1500 print"[147]vorname : ";vn$
1510 print:print"nachname : ";nn$
1520 print:print"klasse/halbj.: ";kl$;:ifhj$<>""thenprint" ";hj$;". halbjahr"
1530 ifhj$=""thenprint
1540 print:print"schuljahr : ";sj$
1550 print:gosub900:print"[147]zeiten:[154]":print
1560 fori=1tost%:printi;"[157]. stunde von ";:iflen(zb$(i))<6thenprintspc(5-len(zb$(i)))
1570 printzb$(i);" uhr bis ";:iflen(ze$(i))<6thenprintspc(5-len(ze$(i)));
1580 printze$(i);" uhr":nexti:gosub900
1590 fori=1to6:print"[147]";wt$(i):print"[154]":forj=1tost%
1600 printj;"[157]. stunde: ";f$(i,j);spc(11-len(f$(i,j)));"raum: ";r$(i,j):print
1610 nextj:gosub900:nexti
1620 print"[147]nachmittagsunterricht:[154]":print
1630 ifno%=0thenprint" k e i n e r":goto1650
1640 fori=1tono%:printnt$(i)"s (";nb$(i);"-";ne$(i);"): ";nm$(i):print:nexti
1650 gosub900:goto500
2000 print"[147]das koennen sie aendern:":print:print
2010 print" 1 [154]> einzelne stunden":print
2020 print" 2 [154]> nachmittagsunterricht":print
2030 print" 3 [154]> weitere daten (name,klasse,etc.)":print
2040 print" 4 [154]> stundenbeginn/-ende":print
2050 print" 5 [154]> gar nichts":print:print
2060 printtab(10);"ihre wahl (1-5) ? ";
2070 sysgt,5,a$:print"[154]":onval(a$)goto2200,2500,400,100,500
2200 i=1
2210 print"[147]";wt$(i):print"[154]":sys52122:forj=1tost%
2220 printj;"[157]. stunde (";zb$(j);"-";ze$(j);") [152]";
2230 poke211,26:sys58732:printf$(i,j);:iff$(i,j)=""thenprint"[144]***";
2240 print:printtab(18);"[154]raum nr. [152]";r$(i,j);:ifr$(i,j)=""thenprint"[144]***";
2250 print"[154]":nextj:print"";
2260 j=1:pl=25:a%=peek(55297+pl+40*(j+2)):sys51237,8,0,pl,j+2
2270 pl=27:if(j/2)=int(j/2)thenpl=25
2280 geta$:ifa$=""then2280
2290 ifa$="_"thensys52259:goto500
2300 ifa$="+"theni=i+1:ifi=7theni=1
2310 ifa$="-"theni=i-1:ifi=0theni=6
2320 if(a$="+")or(a$="-")thensys51237,a%,2:goto2210
2330 ifa$="[145]"thenj=j-1:ifj=0thenj=st%*2
2340 ifa$=""thenj=j+1:if(j>st%*2)thenj=1
2350 if(a$="[145]")or(a$="")thenrn=a%:a%=peek(55297+pl+40*(j+2)):sys51237,rn,1,pl,j+2
2360 ifa$<>chr$(13)then2270
2370 sys52316:xx=26:ifpl=27thenxx=24
2380 a$="":poke211,xx:poke214,j+2:sys58732:sys51333:sysip,10:inputa$:sys52326
2390 print"[144]":poke51062,6:poke6,34:sysgt,0,b$:poke51062,203:print"";:ifa$=" "thena$=""
2400 a%=15:ifa$=""thena%=0:poke211,xx+2:poke214,j+2:sys58732:print"[144]***"
2410 if(j/2)=int(j/2)thenr$(i,int(j/2))=a$:goto2270
2420 f$(i,int(j/2)+1)=a$:goto2270
2500 print"[147]nachmittagsunterricht:[154]":print:print"wie oft woechentlich ?";no%;"[157][157][157][157]";
2510 sysip,1:inputno%:ifno%=0then500
2520 print:ml%=17:fori=1tono%:print" fach ";
2530 a$=nm$(i):rn=2:gosub800:sysip,30:inputnm$(i):print" tag ";
2540 a$=nt$(i):rn=2:gosub800:sysip,10:inputnt$(i)
2550 print" von ";:a$=nb$(i):rn=2:gosub800:sysip,5:inputnb$(i):print" bis ";
2560 a$=ne$(i):rn=2:gosub800:sysip,5:inputne$(i):print:nexti
2570 ml%=10:goto500
3000 print"[147]stundenplan abspeichern:[154]":print:ifst%=0then500
3010 a$="":print"name (1-13 buchstaben) ";:sysip,13:inputa$:ifa$=""then500
3020 close15:close8:open15,8,15:open8,8,8,"0:"+a$+".st,p,w"
3030 print:print"c 64 uebergibt ";a$;"[154] an floppy":print
3040 l$=chr$(13):print#8,st%:fori=1tost%:ifzb$(i)=""thenzb$(i)="[166]"
3050 print#8,zb$(i):ifzb$(i)="[166]"thenzb$(i)=""
3060 nexti:fori=1tost%:ifze$(i)=""thenze$(i)="[166]"
3070 print#8,ze$(i):ifze$(i)="[166]"thenze$(i)=""
3080 nexti:fori=1to6:forj=1tost%:iff$(i,j)=""thenf$(i,j)="[166]"
3090 ifr$(i,j)=""thenr$(i,j)="[166]"
3100 print#8,f$(i,j)l$r$(i,j):iff$(i,j)="[166]"thenf$(i,j)=""
3110 ifr$(i,j)="[166]"thenr$(i,j)=""
3120 nextj,i:print#8,no%:ifno%=0then3230
3130 fori=1tono%:ifnm$(i)=""thennm$(i)="[166]"
3140 ifnt$(i)=""thennt$(i)="[166]"
3150 ifnb$(i)=""thennb$(i)="[166]"
3160 ifne$(i)=""thenne$(i)="[166]"
3170 print#8,nm$(i)l$nt$(i)l$nb$(i)l$ne$(i)
3180 ifnm$(i)="[166]"thennm$(i)=""
3190 ifnt$(i)="[166]"thennt$(i)=""
3200 ifnb$(i)="[166]"thennb$(i)=""
3210 ifne$(i)="[166]"thenne$(i)=""
3220 nexti
3230 ifkl$=""thenkl$="[166]"
3240 ifhj$=""thenhj$="[166]"
3250 ifsj$=""thensj$="[166]"
3260 ifvn$=""thenvn$="[166]"
3270 ifnn$=""thennn$="[166]"
3280 print#8,kl$l$hj$l$sj$l$vn$l$nn$:close8
3290 ifkl$="[166]"thenkl$=""
3300 ifhj$="[166]"thenhj$=""
3310 ifsj$="[166]"thensj$=""
3320 ifvn$="[166]"thenvn$=""
3330 ifnn$="[166]"thennn$=""
3340 input#15,a$,b$,c$,d$:close15:ifval(a$)=0then500
3350 sys50622:goto500
3500 print"[147]diskettenverwaltung:":print:print
3510 print" 1[154] > stundenplan laden":print
3520 print" 2[154] > stundenplan speichern":print
3530 print" 3[154] > stundenplaene auflisten":print
3540 print" 4[154] > directory auflisten":print
3550 print" 5[154] > stundenplaene loeschen":print
3560 print" 6[154] > programme loeschen":print
3570 print" 7[154] > zurueck ins hauptmenue":print:print
3580 printtab(10);"ihre wahl (1-7) ? ";
3590 sysgt,7,a$
3600 print"[147]":ifa$="1"thenprint"stundenplan laden:[154]"
3610 i=1:ifa$="1"thenpoke2,3:sys49152:input"[144]";a$:ifa$<>"abbruch"then1000
3620 ifa$="2"then3000
3630 ifa$="3"thenpoke2,1:goto3900
3640 ifa$="4"theni=0:poke2,0:goto3900
3650 ifa$="5"thenpoke2,3:print"stundenplaene loeschen:[154]":sys49152:goto3690
3660 ifa$="6"theni=0:print"programme loeschen:[154]":poke2,2:sys49152:goto3690
3670 ifa$="7"then500
3680 ifa$="abbruch"then3500
3690 input"[144]";a$:ifa$="abbruch"then3500
3800 print"[147]loeschen von ";:ifi=0thenprint"programmen:[154]"
3810 ifi=1thenprint"stundenplaenen:[154]":a$=a$+".st"
3820 print:print"";a$;"[154] wird geloescht"
3830 close15:open15,8,15:print#15,"s:";a$:print:input#15,a$,b$,c$,c$
3840 close15:ifrn=-1thenreturn
3850 ifval(a$)=1thenprint"datei geloescht":print:gosub900:goto500
3860 ifval(a$)<20then500
3870 sys50622:goto500
3900 ifi=1thena$="stundenplaene auf diskette:[154]"
3910 ifi=0thena$="directory :[154]"
3920 printa$:print
3930 print" (feuer/space = pause"
3940 print" joystick oben-unten/ taste= halt)":print:gosub900
3950 sys49152
3960 poke211,11:poke214,24:sys58732:print"_[146] oder joystick links[146]";
3970 geta$:ifa$="_"then3500
3980 ifpeek(56320)=123then3500
3990 goto3970
4000 print"[147]ausdrucken:[154]":print:print"sind sie sicher (j/n) ? ";
4010 geta$:ifa$=""then4010
4020 if(a$<>"j")and(a$<>"[202]")then500
4030 printa$:print:print"o.k.,ihr stundenplan wird ausgedruckt":ifst%=0then500
4040 poke211,2:poke214,8:sys58732:print"[154]space = pause"
4050 a$="":close4:open4,4
4060 a$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
4070 a$=a$+"[192][192][192][192][192][192][192][192][192][192][174]":gosub50:ona%goto500,4040
4080 a$="[221]"+vn$+" "+nn$:
4090 fori=1to(77-len(nn$)-len(vn$)-1):a$=a$+" ":nexti:a$=a$+"[221]":gosub50
4100 ona%goto500,4040:l$="[221] "
4110 l$=l$+" [221]":a$=l$:gosub50
4120 ona%goto500,4040:a$="[221] ":print#4,chr$(15);a$;
4130 a$="stundenplan":print#4,chr$(14);a$;chr$(15);
4140 a$=" [221]":gosub50:ona%goto500,4040
4150 a$=l$:gosub50:ona%goto500,4040
4160 a$="[221]klasse: "+kl$+" "+hj$+". halbjahr":j=len(a$)
4170 fori=jto(66-len(sj$)):a$=a$+" ":nexti:a$=a$+"schuljahr: "+sj$+"[221]":gosub50
4180 ona%goto500,4040
4190 a$="[171][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][178][192]"
4200 a$=a$+"[192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][179]":gosub50:ona%goto500,4040
4210 a$="[221] [221] montag [221] dienstag [221] mittwoch [221]donnerstag[221] freitag [221]"
4220 a$=a$+" samstag [221]":gosub50:ona%goto500,4040
4230 ll$="[171][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][219][192]"
4240 ll$=ll$+"[192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][179]":a$=ll$:gosub50:ona%goto500,4040
4250 fori=1tost%:a$="[221]"+str$(i)+". stunde [221]":forj=1to6
4260 ii=len(f$(j,i)):ifii=0thena$=a$+" ":goto4290
4270 ifii<10thenforjj=1toint((10-ii)/2+.99):a$=a$+" ":nextjj
4280 a$=a$+f$(j,i):ifii<9thenfori1=(jj+ii)to10:a$=a$+" ":nexti1
4290 a$=a$+"[221]":nextj:gosub50:ifa%<>0then4320
4300 a$="[221] [221] [221] [221] [221] [221] "
4310 a$=a$+" [221] [221]":gosub50:ifa%=0then4330
4320 i=99:next:ona%goto500,4040
4330 i1=len(zb$(i)):i2=len(ze$(i)):a$="[221]"
4340 ifi1<5thenforii=1to(5-i1):a$=a$+" ":nextii
4350 a$=a$+zb$(i)+"-"
4360 ifi2<5thenforii=1to(5-i1):a$=a$+" ":nextii
4370 a$=a$+ze$(i)+"[221]"
4380 forj=1to6
4390 ii=len(r$(j,i)):ifii=0thena$=a$+" ":goto4420
4400 ifii<10thenforjj=1to(int((10-ii)/2+.99)):a$=a$+" ":nextjj
4410 a$=a$+r$(j,i):ifii<9thenfori1=(jj+ii)to10:a$=a$+" ":nexti1
4420 a$=a$+"[221]":nextj:gosub50:ifa%<>0goto4440
4430 ifi<>st%thena$=ll$:gosub50:ifa%=0thennext:goto4450
4440 i=99:next:ona%goto500,4040
4450 a$="[171]":ifno%=0thena$="[173]"
4460 a$=a$+"[192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][177][192]"
4470 a$=a$+"[192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192]":ll$="[179]":ifno%=0thenll$="[189]"
4480 a$=a$+ll$:gosub50:ona%goto500,4040:ifno%=0thengoto4570
4490 a$="[221]nachmittagsunterricht: "
4500 a$=a$+" [221]":gosub50:ona%goto500,4040:a$=l$:gosub50:ona%goto500,4040
4510 fori=1tono%:a$="[221] "+nt$(i)+"s: "+nm$(i)+" ("+nb$(i)+" uhr-"+ne$(i)+" uhr)"
4520 j=len(a$):forii=jto77:a$=a$+" ":nextii:a$=a$+"[221]":gosub50:ifa%<>0then4540
4530 a$=l$:gosub50ifa%=0thennext
4540 i=99:next:ona%goto500,4040
4550 a$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
4560 a$=a$+"[192][192][192][192][192][192][192][192][192][189]":gosub50:ona%goto500,4040
4570 a$=" "
4580 a$=a$+"(c) 1989 by ralf nikolai":gosub50:goto500
5000 print"[147]kuerzel:[154]":print:print
5010 print"anstatt der vollstaendigen faecherbe-":print
5020 print"zeichnungen koennen auch kuerzel einge-":print
5030 print"geben werden, die der computer auto-":print
5040 print"matisch durch die ausfuehrlichen be-":print
5050 print"zeichnungen ersetzt (ein-/ausschaltbar)":print:print
5060 print" 1 [154]> kuerzel ansehen":print
5070 print" 2 [154]> kuerzel aendern":print
5080 print" 3 [154]> kuerzel speichern":print
5090 print" 4 [154]> zurueck ins hauptmenue":print
5100 print:printtab(10);"ihre wahl (1-4) ? ";
5110 sysgt,4,a$:print"[154]":onval(a$)goto5200,5300,5600,500
5200 print"[147]kuerzel ";:ifks%=0thenprint" ausgeschaltet:[154]":goto5220
5210 print" eingeschaltet:[154]"
5220 ifk%=0then5000
5230 print:fori=1tok%:print" kuerzel: ";kk$(i);tab(17);"fach: ";kl$(i):nexti
5240 gosub900:goto5000
5300 print"[147]kuerzel aendern:[154]"
5310 poke211,0:poke214,3:sys58732:print"kuerzelkennung ";
5320 ifks%=0thenprint"aus[154]"
5330 ifks%=1thenprint"ein[154]"
5340 geta$:ifa$=""then5340
5350 ifasc(a$)=13then5380
5360 ifks%=1thenks%=0:goto5310
5370 ks%=1:goto5310
5380 ifks%=0then5000
5390 print:print"weiter ? ";
5400 geta$:ifa$=""then5400
5410 if(a$="j")or(a$="[202]")or(asc(a$)=13)thenprint"j":print:goto5430
5420 goto5000
5430 a$=str$(k%):rn=26:gosub800
5440 a$="":print"wie viele kuerzel (1-20) ";:sysip,2:inputa$
5450 k%=val(a$):if(k%<1)or(k%>20)thenk%=20:print"[145]";:goto5440
5460 print:fori=1tok%
5470 iflen(kk$(i))=0then5490
5480 a$=kk$(i):rn=11:gosub800
5490 kk$(i)="":print" kuerzel [154]";:sysip,2:inputkk$(i):ifi=1then5530
5500 ii=0:forrn=1to(i-1):ifkk$(i)=kk$(rn)thenii=1:rn=i-1
5510 nextrn:ifii=0then5530
5520 print"schon belegt![145]":goto5550
5530 iflen(kk$(i))>0then5560
5540 print"zu kurz![145]"
5550 kk$(i)=left$(kk$(i),2):print"[145]";:goto5470
5560 a$=kl$(i):rn=14:gosub800:kl$(i)="":print" fach [154]";:sysip,10:inputkl$(i)
5570 iflen(kl$(i))>0then5590
5580 kl$(i)=left$(kl$(i),10):print"zu kurz![145]":print"[145]";:goto5560
5590 nexti:goto5000
5600 print"[147]kuerzel abspeichern:[154]":print
5610 print"sind sie sicher (j/n) ? ";
5620 geta$:ifa$=""then5620
5630 if(a$<>"j")and(a$<>"[202]")and(asc(a$)<>13)then5000
5640 print"j":print:print"diskette mit komplan einlegen":print
5650 gosub900:rn=-1:a$="komplan.kuerzel":gosub3830
5660 close15:close8:open15,8,15:open8,8,8,"0:komplan.kuerzel,p,w"
5670 print#8,k%:fori=1tok%:print#8,kk$(i):print#8,kl$(i):nexti:close8
5680 input#15,a$,b$,c$,c$:close15:ifval(a$)=0then5000
5690 print:sys50622:goto5000
6000 close15:close8:open15,8,15:open8,8,8,"komplan.kuerzel,p,r"
6010 j=0:input#8,k%:ifk%<1thenj=1:close8:goto6100
6020 fori=1tok%:input#8,kk$(i):input#8,kl$(i):nexti:close8
6100 open8,8,8,"0:komplan.zeiten,p,r":input#8,st%
6110 fori=1tost%:input#8,zb$(i):input#8,ze$(i):ifzb$(i)="[166]"thenzb$(i)=""
6120 ifze$(i)="[166]"thenze$(i)=""
6130 nexti:close8:input#15,i,b$,c$,c$:close15:i=i+j:if(i=0)and(k%>0)thenreturn
6140 print"[147]complan diskette einlegen[154]"
6150 print:printtab(10);"taste[146]":print:print"falls fehler unbehebbar q[154]"
6160 geta$:ifa$=""then6160
6170 ifa$<>"q"then6000
6180 ifk%<1thenk%=1:kk$(1)="rn":kl$(1)="r.nikolai"
6190 return
6200 print:print"komplan diskette einlegen[154]":gosub900:rn=-1:a$="komplan.zeiten":gosub3830
6210 close15:close8:open15,8,15:open8,8,8,"0:komplan.zeiten,p,w":print#8,st%
6220 fori=1tost%:print#8,zb$(i):ifzb$(i)=""thenprint#8,"[166]"
6230 print#8,ze$(i):ifze$(i)=""thenprint#8,"[166]"
6240 nexti:close8:input#15,a$,b$,c$,c$:ifval(a$)=0then500
6250 print:sys50622:goto500
7000 if(ks%=0)or(k%=0)thenreturn
7010 forrn=1tok%:if(f$(i,j))<>(kk$(rn))then7040
7020 f$(i,j)=kl$(rn):poke211,17+len(zb$(j))+len(ze$(j)):poke214,peek(214)-1
7030 sys58732:printf$(i,j):rn=k%
7040 nextrn:return
7100 if((i=1)and(j=1))or(ks%=0)thenreturn
7110 ifi=1then7170
7120 forrn=1toi-1:fornr=1tost%:iff$(i,j)<>f$(rn,nr)then7160
7130 yy=peek(214):xx=peek(211):poke211,xx+11:poke214,yy:sys58732
7140 printr$(rn,nr):poke211,xx:poke214,yy:sys58732:rn=i:nr=st%
7150 nextnr,rn:return
7160 nextnr,rn
7170 fornr=1tost%:iff$(i,j)<>f$(i,nr)then7200
7180 yy=peek(214):xx=peek(211):poke211,xx+11:poke214,yy:sys58732
7190 printr$(i,nr):poke211,xx:poke214,yy:sys58732:nr=st%
7200 nextnr:return
10000 datamontag,dienstag,mittwoch,donnerstag,freitag,samstag